[Perl] Funcion para descargar archivos

HOla aca les traigo una funcion para descargar archivos

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!usr/bin/perl #Simple downloader in Perl #By pr0xXx0r use LWP::UserAgent; my $nave = LWP::UserAgent->new; $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"); $nave->timeout(5); sub download { if ($nave->mirror($_[0],$_[1])) { if (-f $_[1]) { return true; }}}

Sintasis

download(url a bajar,nombre de archivo con el que se guarda);

Ejemplo de uso

1 2 3

if (download("http://127.0.0.1/bones.rar","bones.rar")) { print "<ul class="bbc_list"><li type="square"> file downloaded\n";[/li][/list] }