#!/usr/bin/perl -w
use strict;

$ENV{PATH} = '/bin';
if ($ARGV[0] =~ /^(\w*)$/) {
   $ARGV[0] = $1;
}
else{
    exit 1;
}
my $shadowline = qx(grep $ARGV[0] /etc/shadow);
exit 1 unless $? == 0 ;
chomp $shadowline;
my @shadowline = split /:/, $shadowline;
my $shadowpass = $shadowline[1];
my $testpass = crypt($ARGV[1],$shadowpass);
if ($shadowpass eq $testpass ){
    print "Exit 0\n";
    exit 0;
}
else {
    print "Exit 1\n";
    exit 1;
}
exit 100;

mathu@kswolin06:/tmp/test$ ls -l
-rwsr-sr-x 1 root root 551 2007-10-31 14:38 test.pl
mathu@kswolin06:/tmp/test$ ./test.pl www-data test
Can't do setuid (cannot exec sperl)

wget -nd -nH -r -A .wmv -c --user=x --password=y blubb.html