#!/usr/bin/perl -wT
use CGI ':standard';
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
print header();
print start_html(-title => "Subroutines");
sub bigblue {
print "<div style='color:blue;font-size:64px;'>$_[0]</div>";
}
sub multiply {
my (@ops) = @_;
return ($ops[0] * $ops[1]);
}
my $s;
$s = "Get your kicks on Route 66!";
bigblue($s);
my $product = multiply (7,8);
print "<div style='color:red;font-size:64px;'>$product</div>";
print end_html();
COPYRIGHT © 2015-2024 IHYPRESS.NET. A DIVISION OF IHY PRESS. ALL RIGHTS RESERVED.