#!/usr/bin/perl

# Give port or mention server name
my $ip='some.machine';

#User ID to login into remote server
my $user='anonymous';

#Password to login in remote server
my $pass='super-secret';

open (FTP, "|-", "/usr/bin/ftp -n");
print FTP <<EOF ;
open  $ip
quote user $user
quote pass $pass
lcd
bye
EOF
print "*$_\n" while (<FTP>);
close FTP;