#!/usr/bin/perl
use strict;
use demo2;
use demo1;

{
    &poly("demo1");
}

sub poly {
    my ($temp) = @_;
    my $object = new $temp;
    ##A function that is used in both objects
    $object->test;
}