#/usr/bin/perl

my $scriptSrc = <<"EOF"; 
<SCRIPT LANGUAGE="APPLESCRIPT"> 

# all your applescript here

EOF

print $scriptSrc,"\n";