Select Code to Download

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";