Help for this page
my $file = 'C:\ppp.txt'; print "file '$file' "; ... print q!doesn't exist!; } print "\n";
my $file = 'C:/ppp.txt'; print "file '$file' "; ... ... (either create it or print error message) } print "\n";