Select Code to Download

  open(FILE, "+<", $filename)
       or die ($node_name."Could not open file: $filename");
...
  print "LINE:$mem<\n";
}
exit;

LINE:9/8/2005 0:00,FRDS,CDR-827705_9_08.FCDR_1.6718.FRDS.11328,1028217
+0,5020,40018,40018,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-827805_9_08.FCDR_1.6718.FRDS.11329,8837858
+,4315,34243,34243,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-827905_9_08.FCDR_1.6718.FRDS.11330,7652257
+,3736,29711,29711,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-828005_9_08.FCDR_1.6718.FRDS.11331,5346713
+,2610,20778,20778,0,0,0<

<INE:9/8/2005 0:00,FRDS,CDR-827705_9_08.FCDR_1.6718.FRDS.11328,1028217
+0,5020,40018,40018,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-827805_9_08.FCDR_1.6718.FRDS.11329,8837858
+,4315,34243,34243,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-827905_9_08.FCDR_1.6718.FRDS.11330,7652257
+,3736,29711,29711,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-828005_9_08.FCDR_1.6718.FRDS.11331,5346713
+,2610,20778,20778,0,0,0

`smbclient //oh-youn-f2/engineering -W Dobson -U $user_login%$user_pas
+swd -c "cd Common/AMA_Reconcile/AMA_Transferred/;get $infile
incoming/$infile"`;