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

my $localvar = $ARGV[0];
open(FILE, "$localvar") or die "Failed to openfile: $!";
while(<FILE>){
	if($_ =~ m/^http/) {
	my $wgetarg = '-q -c --load-cookies /home/Locke/.cookies/rapidshare';
	my @wget = `wget $wgetarg $_`;
		foreach(@wget) {
			print 'Done with this file\n';
		}
	}
}