UNIX for Dummies Questions & Answers

	#downloading .zip file
	my $barcode_sff_url = "http://server/output/Home/$name[0]/$barcode_sff";
	open (OUT, ">", $barcode_sff) or die $!;

	my $user = 'name';
	my $pass = 'pass';

	#sets up request
	my $req = GET($barcode_sff_url);
	$req->authorization_basic($user, $pass);

	#do it
	my $response = $ua->request($req);

	#check and print to file
	if ($response->is_error())
		{
			printf "%s\n", $response->status_line;
			print "http request error!\n";
		} else {

			my $content = $response->content();
			print OUT $content;
		}
	close OUT;