open (FILE, "$ARGV[0]") ||  die "\n$!\n";

print "\n\nPlease wait......Populating Database\n";
while(my $entry = <FILE>)
{
    chomp $entry;
    ...process $entry as normal...
}

close FILE;