#This is file: my_prog.pl

use strict;
use warnings;
use 5.012;  #depending on your version of perl

use Users;

my $user1 =  Users->insert(
    {
        username => 'Joe',
        password => '123',
    }
);

say $user1->username;  #Joe