#!perl
use strict;
use File::Basename;
use CGI;
use Benchmark;
use Win32;

my $cgi = CGI->new();

print $cgi->header;

print "Hello World<br>";

print "DOS NAME: " . basename($0) . "<BR>";

print "ENV BASENAME: " . basename($ENV{SCRIPT_FILENAME}) . "<br>";

print "Win32 BASENAME: " . basename(Win32::GetLongPathName($0)) . "<br>";

timethese (100000, {
    'basename_env'   => sub { basename(Win32::GetLongPathName($0)) },
    'basename_win32' => sub { basename($ENV{SCRIPT_FILENAME}) },
    'basemane_dollar0' => sub { basename($0) },
    }
    );
1;