package Bio;
use strict;
use warnings;
use vars qw($VERSION %USERS);

sub import {
    my $package = shift;
    my %args = @_;

    my $users_file = $args{path};
    
    open USERS, $users_file or die "Cannot open $users_file for readin
+g: $!";
    my $users_data = do { local $/; <USERS> };
    close USERS or die "Cannot close USERS file handle: $!";

    # Write to the global variable
    %USERS = $users_data =~ m{(\S+)\s+(\S+\@\S+)}g;
}

1;
[download]