#!/usr/bin/perl
my $random_number = int(rand(100));
print 0912$random_number, "\n";