Rodando Script Perl Tk sem abrir o Prompt de Comandos

Essa é uma dica para desenvolvedores Perl que atuam na plataforma Windows e desenvolvem scripts com interface gráfica tal como Tk, GTK, Prisma, etc...
Esse script tem como principal função executar seu script que contenha interface gráfica sem que o Prompt de Comandos(Janelinha Preta) fique aberta.

Segue o codigo:

#!/usr/bin/perl -w

# Executando um script Perl sem o Prompt

use strict;
use Win32;
use Win32::Process;

# Criando um processo.

Win32::Process::Create($Win32::Process::Create::ProcessObj,
"C:\\perl\\bin\\Perl.exe", # Localização do interpretador Perl.
"arquivo.pl", # Localização do seu script Perl
0, # Não herdar
DETACHED_PROCESS, #
".") or # Diretório
die &print_error(); #
sub print_error(){ #
return Win32::FormatMessage(Win32::GetLastError() );
}

$Win32::Process::Create::ProcessObj -> Resume();


Obs: Agradecimentos ao autor do código cujo não me lembro o nome por essa maravilhosa dica.