#!/usr/local/bin/perl print do { 2200 * 0.02 }