Print "Ranka ut volymen på ett ratblock\n";
Print "Hojden: ";
	 my $rhojd = <>; 
	 chomp $rhojd; 
	
	if ($rhojd =~ /\A\d+\z/)
	{
		echo "Hm wtf";
	} else {
		
		Print  "Basytans area: ";
		my $barea = <>;
		chomp $barea;
	}