use Net::FTP;

$server="test.const.com";
$username="p2345ui";
$password="yuioplk";
$dir="test_dir/test";
$ftp = Net::FTP->new($server, Timeout => 75, Debug => 0, BlockSize => 1024) or print "test";

$ftp->login($username,$password) or print "unable to login";
if ($ftp)
{
print "success login";
}
$ftp->cwd($dir) or print "unable to change directory";
if ($ftp)
{
print "success dir change";
}
@dirlist = $ftp->ls();
foreach $file (@dirlist) {
print "found $file\n";
}