#!/usr/bin/env perl

for (1..100) { print $_ }