# save as open-file.pl
# input a filename
# the content of the file is displayed
print "Enter Sequence Filename: ";
$file=<STDIN>;
unless (open (SEQFILE, $file)){
die "File does not exist\n"}
@content=<SEQFILE>;
close SEQFILE;
print @content;