#!/usr/bin/perl
print "Filename: ";
chomp(my $filename = <STDIN>);
my @text;
open FILE, '<', $filename;
if(! -e FILE){
  print "$filename does not exist.\n:: Please enter correct filename.\n";
  die
}
else etc...