print "here is ok\";
&spawnwebget("wget somesite.com/webcam.jpg;".'if [ $? -ne 0 ];'." then cp ./images/broken.jpg webcam.jpg;fi");
print "never gets here\n";


sub spawnwebget {
        my ($url)=@_;
        #avoid zombies
        my $pid = fork;
             next if $pid;           
             warn($!), next
        if not defined $pid;   
        exec ($url);              
       #never reaches here
return;
}