#use feature 'say';

sub say {
  print @_,"\n";
  no warnings 'once';
  $DB::single=1;
}

say $x++;
say $x++;
say $x++;
say $x++;
say $x++;