#!/bin/perl
open(README, "/etc/passwd") || die;

&readit(\*README);     # Reference to a typeglob

sub readit {
      my ($passwd)=@_;
      print "\$passwd is a $passwd.\n";
      while(<$passwd>){
         print;
      }
}

seek(README,0,0) || die "seek: $!\n"; # Reset back to begining of job