sub rotbynum
{
	my $t = shift(@_);
	my $r = shift(@_);
	if (!$r)
	{
		$r = 13;
	}
	print $t . ":\n";
	$panic = 0;
	$a = ord('a');
	$b = ord('A');
	$z = ord('z');
	$y = ord('Z');
	foreach $c (split(//, $t))
	{
		$o = ord($c);
		if ($o >= $a && $o <= $z)
		{
			$o += $r;
			if ($o > $z)
			{
				$o -= 26;
			}
			if ($o < $a)
			{
				$o += 26;
			}
		}
		elsif ($o >= $b && $o <= $y)
		{
			$o += $r;
			if ($o > $y)
			{
				$o -= 26;
			}
			if ($o < $b)
			{
				$o += 26;
			}
		}
		print chr($o);
		if (++$panic > 512)
		{
			die("Infernal loop error!");
		}
	}
	print "\n\n";
}
1;