open <ip>
<username>
<password>
hash
get 500k.txt
quit

system(@args);
@args = ("ftp", "-s:c:\\ftp_dl.txt");
system(@args);

ftp> open <ip>
Connected to <ip>
220 "Welcome to the fast and fabulous DUFTP005 ftp-server :-) "
User (<ip>:(none)):
331 Please specify the password.

230 Login successful.
ftp> hash
Hash mark printing On  ftp: (2048 bytes/hash mark) .
ftp> get 500k.txt
200 PORT command successful. Consider using PASV.
150 Opening BINARY mode data connection for 500k.txt (14336 bytes).
#######
226 File send OK.
ftp: 14336 bytes received in 0.00Seconds 14336000.00Kbytes/sec.
ftp> quit
221 Goodbye.

 ftp: 14336 bytes received in 0.00Seconds 14336000.00Kbytes/sec.

# gesamte Ausgabe in $result
my $result = qx( dir C:/ );

# oder

open my $pipe, '-|', 'dir C:/' or die "cannot open pipe: $!";

while ( my $line = <$pipe> ) {
  # tu was mit zeile
}

close $pipe or die "cannot close pipe: $!";