Select Code to Download

255[am]king ~/a$ cat a
print "Hello\n";
...
   };
}

[am]king ~/a$ perl a
Hello
Middle
Died at a line 10.

255[am]king ~/a$ perl -wd a

...
 at a line 10
        main::a(1) called at a line 4
255[am]king ~/a$