$|=1;
my $myohmy : shared = 1;
print "Checking ..";
$thr = threads->create(\&checkdot)->detach;
$thr1 = threads->create(\&psou);
$thr1->join();
$myohmy = 0;

sub checkdot
{
$|++;
while ( $myohmy == 1 )
{
print ".";
sleep 1;
}
} ###### above code not relevant #####

sub psou
{
open (PS, "$psout |"); #### $psout is the command #######
}


while (<PS>) ####### PROBLEM -> No output here ####
{

..