open my $in, "<", "netapps" 
    or die "Can't open file 'netapps' for read:$!";