#!/usr/bin/perl
use warnings;
use strict;

  foreach(0..9){
     print $_,$/;
  }
<>; # press Enter to quit