Select Code to Download

tab@music3:~/2018-0717$ cat pm.pl 
#!/usr/bin/perl
...
tab@music3:~/2018-0717$ perl pm.pl 
$-.% -> [$-.%]
tab@music3:~/2018-0717$