#!/usr/bin/perl

# FTP ACCESS FROM PERLCODER.10E.NET

use warnings;
use strict;
use Net::FTP;
use Carp;
my ($ftpsite,$user,$pass,$stat,$fname,$ftp,$name);
print "
########################\
----- FILENAME.EXT------\
-----CHNG  DIR----------\
-----/dirname-----------\
########################","\n\n";
print "FTP S-vERISON \@1.0.0","\n";
print "FTP SITE :";
$ftpsite =<STDIN>;
chomp $ftpsite;
print "USERNAME :";
$user=<STDIN>;
chomp $user;
print "PASSWORD :";
$pass=<STDIN>;
chomp $pass;
$ftp=Net::FTP->new ($ftpsite);
$stat=$ftp->login($user,$pass);
if ( defined $stat ) {
print "Connected To FTP ",$ftpsite,"\n";
$ftp->cwd("/");
loop:
while (1) {
my @files =$ftp->ls();
print "@files\n";
print "Get File From List :";
$fname=<STDIN>;
chomp $fname;
if ( $fname =~ /^(\/)/ ) {
	$ftp->cwd($fname);

	next loop;
}
$name = $ftp->get($fname);
chomp $name;
open FH,"$name" or die;
while(<FH>){
 last unless print $_,"\n";
}
}
}
else {
print "Error Recheck"; 
$ftp->close();
}