my $AllocConsole = new Win32::API('kernel32', 'AllocConsole', [] , 'N');
my $GetConsoleWindow = new Win32::API('kernel32', 'GetConsoleWindow', [] , 'N');
my $ShowWindow = new Win32::API('user32', 'ShowWindow', ['N','I'] , 'N');
my $apival = $AllocConsole->Call();
if($apival) {
    my $console = $GetConsoleWindow->Call();
    my $hidewindow = 0;
    my $rval = $ShowWindow->Call($console, $hidewindow);
}