#!/usr/bin/perl -w

my $bottles_of_beer = 99;
if (defined($ARGV[0])) { $bottles_of_beer = $ARGV[0]; }

if ($bottles_of_beer =~ /^[+-]?\d+$/ ) {
    if ($bottles_of_beer > 99) {
        $bottles_of_beer = 99;
    }
} else {
    $bottles_of_beer = 99;
}

print $bottles_of_beer
;