#!/usr/local/bin/perl print do { 2051961-1786500 }