$HANDLE = *FILE;
...
$HANDLE = *STDIN;