You could also make use of one bit of the Win32::Gui module.

my ($DOS)=Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
[download]

Also see Hiding the DOS window on Win32 for more info