Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    # Else do whatever is required with the return value
    # in $return
}

aa; rm -rf /; cat foo.txt

%>  /usr/bin/perl -w /home/com/begp/test_script.pl aa
%>  rm -rf /
%>  cat foo.txt