#! perl -slw
use strict;
use Digest::MD5 qw[ md5_hex ];

my $challenge = 
'The quick brown fox jumps over the laxy dog f67fcc68ecf72971a7bd012e3a47d0ac';

my( $text, $sig ) = $ARGV[ 0 ] =~ m[(^.*)\s(.{32})$];

die 'Cheat! The text has to be different'
	if $ARGV[ 0 ] eq $challenge;

die 'Bad luck'
	if  md5_hex( $ARGV[ 0 ] ) ne '7b79a6f61178415a63fc5e7b76d64a1f'
	or md5_hex( $text ) ne $sig;
	
print "You won yourself a meal on BrowserUk" ;

print 'Make sure your passport is valid'
	if $ARGV[ 0 ] =~ m[lazy];
	
__END__