#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

say '1..3';
say 'ok ', $_ for 1 .. 2;
say 'not ok 3';