#!/usr/local/bin/perl

    use Net::FTP;

    $ftp = Net::FTP->new("ftp.sdsc.edu", Debug => 0);
    $ftp->login("ftp",'damartin@sdsc.edu');
    $ftp->cwd("/pub/outgoing/damartin");
    $ftp->get("test.txt");
    $ftp->quit;