use stritct;
use Tie::File;
tie my @lines, Tie::File, $infile;
delete $lines[-1];

##</code><code>##

Bareword "Tie::File" not allowed while "strict subs" in use