Select Code to Download

use strict;
use warnings;
...
print B::Deparse->new('-p')->coderef2text(\&tst);

print tst();

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
{
    use warnings;
...
    }
    ));
}13