#!/usr/bin/perl -wT;

sub LogAllKindOfInformationOnThisUser;

LogAllKindOfInformationOnThisUser;
print "Location: ftp://filetheuserrequested\n\n";

#END