gistfile1.txt

sub IsSafe {
	#http://sleep.dashnine.org/manual/index.html
	local('$pos');
	@badchars = @(";", "&", '$', "'");
	foreach $index => $value (@badchars)
	{
		$pos = indexOf($1, $value);
		if (-isnumber $pos)
		{
			println("Invalid char detected");
			return 0;
		}
	}
	println("String is safe");
	return 1;
}