#!/usr/bin/perl --
use strict;
use warnings;

use autodie;

Main( @ARGV );
exit( 0 );

sub Main {
    Tango();
    Tango();
    Tango();
}

sub Tango {
    my $lsof = qq!pslist $$ 2>NUL!;
    print qx!$lsof!;
    open my($fh), q!-|!, q!ping localhost!;
    print qx!$lsof!;
    close $fh; 
    print qx!$lsof!;
    print qq!#################################^^^<< HANDLES\n!;
    print qq!                                 |||\n!;
}

__END__