Select Code to Download

#!/usr/bin/perl -w 
use strict;
...
main();

$ ./hackslash.pl
Use of uninitialized value $\ in concatenation (.) or string at ./hack
+slash.pl line 6.
./hackslash.pl8 path \\127.0.0.1\ak

# note the backslash in front of the dollar sign
my $path = "\\\\127.0.0.1\\c\$\\bak\\";

$ ./hackslash.pl 
./hackslash.pl8 path \\127.0.0.1\c$\bak