#!/usr/local/bin/perl print do { 0.0/19*100 }