#!/usr/bin/perl -w

use strict;

if (open INPFIL, "<file1.dat")
{
     # File opened.  Proceed.
     while (my $inpbuf = <INPFIL>)
     {
          # Next line from input file
          chomp $inpbuf;
          &processInputLine($inpbuf);
     }
     # Cleanup
     close INFPIL;
}

exit;