package checkStuff;
sub new {
    my $class = shift;
    my $bar = 2;
    bless \$bar, $class;
    return ( \$bar, $bar );    # returning a list.
}
1;

package main;
use strict;
use warnings;
my( $obj, $val ) = checkStuff->new();
print $obj, "\n";
print ref $obj, "\n";
print $val, "\n";
__OUTPUT__
checkStuff=SCALAR(0x155ae0c)
checkStuff
2