my $filename = shift;
open(PAGE, $filename) || die "I can't open yourfile.txt";