use strict;
use CGI qw(:standard);
use File::Basename;

my $file = param('file');
my $name = fileparse($file);

print header;
if (open (FILE, $name)) {
   my $data =  do {local $/; <FILE>; };
   print $data;
}
else {
   print "can't open '$name'";
}