Select Code to Download

#!/usr/bin/perl -w

...
  }

$status = system("lynx -source $newurl > wallpaper.jpg");

#!/usr/bin/perl 

...
print "retrieving $url";

$status = system ("lynx -source $url > wallpaper.jpg");