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


my $dir = '../billimages/';

&performUpload($dir);

sub performUpload {
	my ($dir) = @_;
	my $cgi = new CGI;
	my $file = $cgi->param("file");	
	my $i;
			
	open (LOCAL, ">$dir$file") or dieNicely("Unable to upload: $!");
	while (read($file, $i, 1024)) {
		print OUT $i;
	}
	close (LOCAL);

	dieNicely("Upload Complete"); 	
}

sub dieNicely {
	print "Content-type: text/html\n\n";
	print "$_[0]";
}