#!/usr/bin/perl use CGI ':standard'; BEGIN { #flush STDOUT immediately $| = 1; } print header; $newtarget=param('newtarget'); $newpass=param('newpass'); $newuser=param('newuser'); $newdir=param('newdir'); @moved_file=param('my_links'); print qq! Uploaded Files
Extracting/Transloading

!; print qq!

The files listed below can be transloaded with the current name or can optionally be renamed to whatever you like...
Click onto the ^*^ to view the file...

!; use LWP::UserAgent; $ua = LWP::UserAgent->new; foreach $moved_file(@moved_file) { $moved_file=~/(.+\/)([^\/]+)/ig; $full_file=$1; $part=$2; $ua->mirror("$full_file$part","tmp/$part"); print qq! !; } print qq!
^*^

<noframes></body></html>!;