my $filename = "faketext.txt";
open my $fh, '<', $filename or die "Can't write to '$filename': $!\n";