Select Code to Download

#!/usr/bin/perl -wT

...
print_at_form($q);
&create_at_job("touch /home/foo/some_file\n") if $q->param('Submit');

package Shortcuts;

...

1;