+%
+%
+% my $fh = $cgi->upload('batch_results');
+% my $filename = $cgi->param('batch_results');
+% $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
+% or die "unparsable filename: $filename\n";
+% my $paybatch = $2;
+%
+% my $error = defined($fh)
+% ? FS::cust_pay_batch::import_results( {
+% 'filehandle' => $fh,
+% 'format' => $cgi->param('format'),
+% 'paybatch' => $paybatch,
+% } )
+% : 'No file';
+%
+% if ( $error ) {
+%