#!/usr/bin/perl use warnings; print"Four sevens are ". 4*7 ."\n";