Select Code to Download

#!/win2k/Perl/bin/perl

use Win32::API;
...
print "Setwall: `$setwall'\n";
#$setwall->($ARGV[0], 0);
exit;

$target = "BMP";
$current = "JPEG";
$Config{'Options'}{'Converted File'} = "converted.bmp";
...
    $cmd =~ s/\$infile/$filename/g;
    $cmd =~ s/\$outfile/$ofile/g;
    system $cmd and die "Error converting $filename -> $ofile: $!\n";