#!/usr/local/bin/perl
print do { (360717 - 51003) / 78.0 / 3600 }