#!/usr/local/bin/perl
print do { 10000000/365 }