#!/usr/bin/perl -w # ftp.pl - an ftp session use strict; use Net::FTP; my $host = shift || 'server.onsight.com'; my $user = shift || $ENV{USER}; die "no user!" unless $user; my $dir = '/tmp'; my $file = 'perl5.005_51.tar.gz'; my($pass, $command); my $ftp = Net::FTP->new($host); die "could not connect: $!" unless $ftp; print "Enter your password: "; system "stty -echo"; chop($pass = <STDIN>); system "stty echo"; print "\nBefore\n", '-' x 40, "\n"; print `/bin/ls *.gz`; print '-' x 40, "\n"; $ftp->login($user,$pass) or die "login failed: $!"; $ftp->cwd($dir) or die "cwd failed: $!"; $ftp->get($file) or die "get failed: $!"; $ftp->quit or die "quit failed: $!"; print "\nAfter\n", '-' x 40, "\n"; print `/bin/ls *.gz`; print '-' x 40, "\n";