package ALIAS ;

sub close { print "CLOSE>> @_\n" ; }

package main ;

 open(ALIAS , ">&STDIN") ;

 ALIAS->close() ;