Hi! If there is not much trouble I would like to ask
something myself. I searched but found nothing on this.
I use the code below to get something from FTP but I can't 
abort(). I want to be able to read from <STDIN> while 
downloading and if the command is abort then stop the 
transfer. Can you see anything wrong in my code?
Thanks

##</code><code>##

sub getfile(){

	my $file = $_[0];
	my $pid;
	if (!defined($pid = fork())) {
    		die "cannot fork: $!";
	} elsif ($pid) {

		while (1){
			my $command = <STDIN>;
			chomp($command);
			if($command =~ m/^\s*abort\s*/){
				$ftp->abort();
				last;
			}
		}

	} else {
		$ftp->get($file);
	}

}