#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;

# Upload directory for  files

my $upload_dir = "uploadpath";

# Path to processing program

my $program = "path/processprogram";

my $input_file = "inputfile.txt";

die "Usage: $0 INPUT_FILENAME\n" unless $input_file;

die "Can't process '$upload_dir/$input_file': File does not exist!\n"
    unless -f "$upload_dir/$input_file";


# Create web page...

print header,
    start_html("Processing  file '$input_file' ..."), $/,
    h1("Processing file '$input_file' ..."), $/;

chdir $upload_dir;

open (PROG, "| $program") || die "Can't run '$program': $!\n";
print PROG "$input_file\n";
close(PROG);

print p("OK"), end_html();