#! /usr/bin/perl -w

use CGI;

my $query = new CGI;

print STDOUT $query->header();
print STDOUT $query->start_html( -title=> "CGI");


my $file = $query->upload('file');


$file =~ m/^.*(\\|\/)(.*)/;
my $file_name = $2;

open (FILE, "$name") or die "unable to open file";

$info = do { local $/; <FILE>  };
close (FILE);

print STDOUT "$info";


print STDOUT $query->end_html;