Cstools
view release on metacpan or search on metacpan
bin/cssort.PL view on Meta::CPAN
use Config;
my $filename = $0;
$filename =~ s/\.PL$//;
open OUT,">$filename" or die "Can't create $filename: $!";
chmod(0755, $filename);
print "Extracting $filename (with #! substitution)\n";
print OUT <<"EOHEADER";
$Config{'startperl'} -w
eval 'exec perl -S \$0 "\$@"'
if 0;
EOHEADER
print OUT <<'EOBODY';
bin/cstocs.PL view on Meta::CPAN
#
# This extraction code was taken from the libwww modules.
#
use Config;
my $filename = $0;
$filename =~ s/\.PL$//;
open OUT,">$filename" or die "Can't create $filename: $!";
chmod(0755, $filename);
print "Extracting $filename (with #! substitution)\n";
print OUT <<"EOHEADER";
$Config{'startperl'} -w
eval 'exec perl -S \$0 "\$@"'
if 0;
EOHEADER
print OUT <<'EOBODY';
bin/dbfcstocs.PL view on Meta::CPAN
#
# This extraction code was taken from the libwww modules.
#
use Config;
my $filename = $0;
$filename =~ s/\.PL$//;
open OUT,">$filename" or die "Can't create $filename: $!";
chmod(0755, $filename);
print "Extracting $filename (with #! substitution)\n";
print OUT <<"EOHEADER";
$Config{'startperl'} -w
eval 'exec perl -S \$0 "\$@"'
if 0;
EOHEADER
print OUT <<'EOBODY';
( run in 0.268 second using v1.01-cache-2.11-cpan-496ff517765 )