#!/usr/bin/perl use strict; use warnings; use Number; my $no = new Number; sleep 100;