use lib "script/libnet/Net/FTP.pm";

$ftp = Net::FTP->new("ftp.mycompany.com");
$ftp->login("anonymous","anonymous");
$ftp->ascii;

chdir( "$dir/$output" );
opendir( DIR, "$dir/output" );
@files = readdir( DIR );

# transfer all of the output files
# in the output directory to SAP.

foreach( @files ) { 
   $filehandle = $_;          
   $ftp->put("output/$filehandle");   
   unlink( "$filehandle" );

} # end foreach

$ftp->quit;