#!/usr/bin/perl -w
use strict;

use Net::FTP;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;

my $query = new CGI;

my $pid = $query->param('pid');

my $home="site.com";
my $username="sitecom";
my $password="sitepass";
my $directory="cgi-bin";
my $filename="$pid" . '.txt';
my $newfile = "ftptest.cgi";


my $ftp = Net::FTP->new("$home")    or die "Can't connect: $@\n";
$ftp->login($username, $password)       or die "Couldn't login\n";
$ftp->cwd($directory)                   or die "Couldn't change directory\n";
$ftp->get($filename, $newfile)                    or die "Couldn't get $filename\n";

print "Content-type: text/html\n\n";
print 'done';