#!/usr/bin/perl

package Test;

use strict;
use warnings;

my $test = 'Test';
our $VERSION = 0.01;

sub new{
    my ($class,$value) = @_;
    $test = $value;
    bless {},$class;
}

sub ptest{
    print $test,"\n";
}

package main;

my $obj1 = Test->new(1);
$obj1->ptest;
my $obj2 = Test->new(2);
$obj2->ptest;
$obj1->ptest;