Select Code to Download

#!/usr/bin/perl

...
        return ask($url);
    }
}

use File::Slurp;
use warnings;
...
    print "Modified $filename\n";

}

$result = `curl -I "$url"`;
if($result=~m{HTTP/1.1 200 OK}){
 # proceed to rename
}