#!/usr/bin/perl

$input=<>; foreach $input++1;