#!/usr/bin/perl -w
# code_fragment.pl

use strict;
use CGI qw(:standard escapeHTML);

# ------ start posting to browser ------

print header (),

start_html(  (-head => [ Link ({ -rel => 'icon',
                                 -type => 'image/png',
                                 -href => '/perl_img/my_icon_01.ico'}), ]  ),

                (-title => "My File Upload Utility", -bgcolor => "white") );

print ('<IMG SRC="http://' . $server_ip_addr . '/image004.jpg" /><br />' . "\n"); 
print ('<h2>UPLOAD A NEW FILE</h2>' . "\n");

# ------ post form to browser ------

print start_multipart_form(-action => url()),

   '<input type="hidden" name="MAX_FILE_SIZE" value="5000" />', "\n",
   'Select file to upload: ', "\n",
   '<input name="uploadedfile" type="file" size="40"/><br />', "\n",
   "<br /><br />\n",

   "<br /><br />\n",
   '<input type="submit" name="choice" value="Upload File" />&nbsp;&nbsp;&nbsp;', "\n",
   '<input type="submit" name="choice" value="Abort Upload" />', "\n",

   end_form();

   print end_html();


exit(0);