$hour=<STDIN>;chop($hour);