Shell Programming and Scripting

use Net::FTP;
use strict;

open (fh, "> abc.txt");

print fh "this is test data\n";
close fh;


my $ftphost='XXXXXX';
my $ftpuser='XXXXXX';
my $ftppass='XXXXXX';
my $outdir= 'C:/';

my $outfile='C:/Users/XXXXXX/Documents/abc.txt';


# FTP the file
            my $ftp = Net::FTP->new($ftphost,Debug => 1) || die "Unable to establish ftp connection to $ftphost";
           $ftp->login($ftpuser, $ftppass) || die "Unable to log into $ftphost as $ftpuser/$ftppass";
            $ftp->ascii || die  "Unable to change the Type to Ascii\n";
           $ftp->put("$outdir", "$outfile") || die "Unable to ftp $outfile to $ftphost.\n";
         $ftp->quit();
        print "The data output file $outfile was ftpd to $ftphost \n";

$ftp->cwd("$outdir") or die "Cannot change working directory ", $ftp->message;
$ftp->put("$outfile") || die "Unable to ftp $outfile to $ftphost.\n";