my $handle;
*PORT = $handle;
$hand = *PORT;