#!/usr/bin/perl
# simple ftp data  client
# Peter Walsh csci 460 

$addr='csciun1';
$port='21';

use IO::Socket;
my $sock = new IO::Socket::INET (
                                 PeerAddr => 'csciun1',
                                 PeerPort => '21',
                                 Proto => 'tcp',
                                );
die "Could not create socket: $!\n" unless $sock;



while (<$sock>) {
   print $_;
}
close($sock);

