#!/usr/bin/perl -w
#
# "double.pl" -- an example of 2 simultaneous clients
use strict;
use warnings;

# Main program
if (fork) {
    system("flowers.pl  35.6");
} else {
    system("flowers.pl -h : 324.4");
}