sub get_object{
    use Image::Grab qw(grab);
    my($agent, $url, $referer, $save_path) = @_; 
    my($request, $response, $content);
    
    $content = grab("$url");    
    $save_path ? 
    print("Getting picture: $url...")
     :     print("Getting info from $url\n");
    
    return($content) unless ($save_path);
    open(OUT, ">$save_path") or die("Couldn\'t open picturefile to sav
+e: $!");
    binmode(OUT);        
    print(OUT $content);         
    close(OUT);
            
}
[download]

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.
[download]