sub die_clean
{
	my ( $input ) = @_;
	my ( $msg , $line ) = $input =~ /^([.]+)( at [\\\/\w\.\-\ ] line [\d]+\.)$/;
}