@rem = '--*-Perl-*--
@echo off
if exist .\perl\bin\perl.exe goto perlexefound
echo.
echo ERROR: Can not find .\perl\bin\perl.exe
echo This installation is incomplete.
echo Make sure that the downloaded file is complete.
echo Make sure that your unzip pogram extracts subdirectories
echo and preserves long filenames.
echo.
goto endofperl

:perlexefound
.\perl\bin\perl -w -I.\perl\lib setup.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl -w
#################################################################
# Your startup script
#################################################################

@rem = (); # eliminate warning

use Win32::API;
use strict;

my $startPath = Win32::GetCwd(); # where the script lives!

<...>

__END__
:endofperl