use strict;
use warnings;

my $file = $ARGV[0];
open my $fh, '<', $file or die "cannot open $file";

# pause some second to go to inspect the process manager
sleep 5;

# the diamond op is now in scalar context
while (my $line = <$fh>){
      # do noting
      1;
}

sleep 5;