# aliases.pm 
  
package aliases; 
  
use strict; 
  
my @export = qw( fopen cls ); 
  
sub import { 
  shift; 
  my $pkg = caller; 
  no 'strict'; 
  *{"${pkg}::$_"} = \&$_ for @_ ? @_ : @export; 
} 
  
sub fopen { 
  my $file = shift; 
  local *FH; 
  open FH, $file or die "can't open $file: $!"; 
  return \*FH; 
} 
  
{ 
  my $cls = `clear`; 
  sub cls { print $cls } 
} 
  
1;

use aliases;  # imports fopen() and cls() 
  
use aliases qw( cls );  # imports ONLY cls()