Hastebin Upload

gistfile1.pl

if(@ARGV < 1){
	print "Usage $0 filename1 filename2\n";
	exit(1);
}
foreach (@ARGV){
	my $file = `cat $_`;
	my $r =  `curl -s -X POST -d "$file" http://hastebin.com/documents`;
	if($r =~ /\{"key":"(.*?)"\}/){
		print "$_ : http://hastebin.com/$1\n";
	}
	else{
		print "An error has occured\n";
	}
}