#!/usr/bin/env perl 
use strict;
use warnings;

open my $test, '<', $ARGV[0] or die "Cannot open $ARGV[0]: $!\n";
while (<$test>) {
    next unless /test/;
    print "start";
    last;
}
close $test;