Select Code to Download

#!/usr/bin/env perl

use v5.36;
...
    }
    return $linecount;
}

$ perl carptest.pl 
exists.dat has 3 lines
No such file or directory at carptest.pl line 26.
    main::countLines("doesnotexist.dat") called at carptest.pl line 21