#usr/local/bin/perl

$document = "open_directory";

if (open (FILE, "<" . $document)){
	while(<FILE>){
		print;
	}	
	close(FILE);
}
else {
	print "Can't open\n"
}