my $file = "tst";
open ($file, $file) or die "Cannot read $file: $!";
print <tst>;