#!/usr/local/bin/perl
warn 2 *100