#!/usr/bin/perl 
# pegasus_ftp_transfer
use Net::FTP;
use Time::Format qw(%time %strftime %manip);
$ctime="$time{'hh:mm'}";
$cdate=$time{mmddyy};
$file_month=$time{'mmddyy'};

  
$filename= "property_odd04012004.gz";
$ftp_log="pegasus_ftp_transfer.log";
$down_dir = "c:";


    $ftp = Net::FTP->new("host", Debug => 0)
      or die "Cannot connect to some.host.name: $@";
    $ftp->login("user","pass")
      or die "Cannot login ", $ftp->message;
    $ftp->ascii;
    $ftp->cwd("/pegasus")
      or die "Cannot change working directory ", $ftp->message;
    $ftp->mdtm ($filename) 
      or die "get failed ", $ftp->message;
    $ftp->quit;

'mv $filename > $down_dir';