#!/apps/PERL5/bin/perl

use CGI qw(:standard);
use CGI::Carp qw/ fatalsToBrowser /;

$cgi = new CGI;
print header;

my $b_File = $cgi->param('user_File01');

print p("b_File ($b_File)");

my $fh = $cgi->upload($b_File);

while (<$fh>){
    print p("Data ($_)");
}