<&|/l&>Please specify the file to import
<&|/l&>Report Name
<&|/l&>File to Import

<%INIT> if ($Op eq 'Import' and $upload) { # deal with upload here $name ||= "$upload"; $name =~ s/\.txt$//i; if (length $name) { my ($buf, $stream) = ('', ''); binmode($upload); while (read($upload, $buf, 8192)) { $stream .= $buf; } $DB{$session{db}, $name} = $stream; } $m->print("
"); $m->abort; } <%ARGS> $Op => undef $name => undef $upload => undef