use strict;   
use warnings;        
use Net::FTP;
use Net::FTP::Recursive;
use FileHandle;

# after providing the host and user details

my $fh = new FileHandle;
my $dir = "/home/prod/game/code";
$f->cwd($dir) or die "Can't cwd to $dir\n";
$, = "\n";
select $fh;

#Now when i write the rls like this
my @files = $f->rls(Filehandle => $fh) or die "??";
#i'm getting a timed out error even for lesser number of files

#Now when i write the rls like this w/o declaring any file handler 
my @files = $f->rls() or die "??";
# i get the error -You must pass a filehandle when using rdelete/rls!