#!/usr/local/bin/perl print do { 2332 * 108.5 }