Shell Programming and Scripting

#!/usr/local/bin/perl
use File::Basename;
use Net::FTP;
#use Net::FTP::File;
my $verbose = 0;
my $proxy = @ARGV[0];
my $host  = @ARGV[1];
my $ftpuser = @ARGV[2];
my $ftppass = @ARGV[3];
my $remoteDir = @ARGV[4];
my $filetoDelete = @ARGV[5];
my $ftp=Net::FTP->new($host,
           Debug => 0,
           Passive => 0,
           Hash => ($verbose ? \*STDOUT : undef),
           FirewallType => 1,
           Firewall => $proxy,
   ) or exit(1);
   $ftp->login($ftpuser,$ftppass) or exit(2);
chomp($remoteDir);
if ( $remoteDir ne "/" )
{
   $ftp->cwd($remoteDir) or exit(3);
   print $remoteDir;
}
@files=$ftp->ls or exit(4);
foreach(@files) {
     print "$_ \n";
     $ftp->delete($_) ;
}
$ftp->quit;
exit(0);