BEGIN {
my @map = (0..9, 'A'..'Z', 'a'..'z', qw/! @ $ % ^ & * ( ) _/);

sub convert {
	my $num = shift;
	my $base = shift || 16;
	
	die "Base too big: Not enough characters." if $base > $#map;

	my $conv = '';
	my $sign = $num > 0 ? '' : '-';	
	$num = abs $num;

	while ($num != 0) {
		$conv = $map[$num % $base] . $conv;
		$num = int($num / $base);
	}
	return $sign . $conv;
}
}