#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
    my  $q = new CGI;
    print $q->header, $q->start_html( 
              -title => 'Upload Progress',
              -head  => meta({-http_equiv=>'Refresh', -content=>'3'}) );
    if( open( my $fh, '<', 'myprogressdata') ) {
        my  $progress = <$fh>;
        print $q->h2('Upload Progress'), $progress;
    } else {
        print $q->h2('No Data Available'), $!;
    }
    print $q->end_html;