
<html>

<head>

<style>

.hmmessage P

{

margin:0px;

padding:0px

}

body.hmmessage

{

FONT-SIZE: 10pt;

FONT-FAMILY:Tahoma

}

</style>

</head>

<body class='hmmessage'>

Desculpe pessoal...<BR>

&nbsp;<BR>

#!/usr/bin/perl<BR>

&nbsp; use strict;<BR>&nbsp; use Net::FTP;<BR>

&nbsp; my $dir = "/DIR";<BR>&nbsp; my $ftp = Net::FTP-&gt;new("xxx.xxxxxx.xx", Debug =&gt; 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die "Erro: $@";<BR>

&nbsp; $ftp-&gt;login("$ARGV[0]", "$ARGV[1]")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die "Erro: ", $ftp-&gt;message;<BR>

&nbsp; $ftp-&gt;cwd($dir)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die "Erro: ", $ftp-&gt;message;<BR>

&nbsp; my @files = $ftp-&gt;dir<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die "Erro: ", $ftp-&gt;message;<BR>

&nbsp; for(@files){<BR>&nbsp;&nbsp;&nbsp; $_ =~ s/.*\s{1,}//g;<BR>&nbsp;&nbsp;&nbsp; next if /ANTERIOR/;<BR>&nbsp;&nbsp;&nbsp; print "$_\n";<BR>&nbsp;&nbsp;&nbsp; $ftp-&gt;get($_) or warn "Erro: ", $ftp-&gt;message;<BR>&nbsp; }<BR>

&nbsp; $ftp-&gt;quit;<BR><BR><br /><hr />Receba GRÁTIS as mensagens do Messenger no seu celular quando vocę estiver offline. Conheça  o MSN Mobile! <a href='http://mobile.live.com/signup/signup2.aspx?lc=pt-br' target='_new'>Crie já o seu!</a></body>

</html>