#!/usr/bin/perl -wT

use strict;
use Shortcuts qw(debug print_at_form create_at_job);

BEGIN {&debug}

use CGI;
my $q = new CGI;
print $q->header();
print "<center>\n";
print_at_form($q);
&create_at_job("touch /home/foo/some_file\n") if $q->param('Submit');