$ftpobj = Net::FTP -> new ($URL) or die "unable to connect\n";
print "Connection successful\n";
print "retrieving file from medix\n";

$ftpobj -> login($user, $pass);
$ftpobj -> cwd ($src_dir);

@files=$ftpobj->dir;
  
foreach(@files) {
  print "$_\n";
}

$ftpobj -> get ("INPUT", "$dest_dir/OUTPUT");  

$ftpobj -> quit;

print "file size ",-s "$dest_dir/OUTPUT"," bytes\n";