use strict;
use warnings;

use WWW::Myspace;
use Contextual::Return::Failure;

my ($account, $password) = retrieve_acct_info();

my $myspace = WWW::Myspace->new($account,$password);

sub retrieve_acct_info {

    my $account = 'email';
    my $password = 'password';

    return ($account, $password);
}
[download]

"my" variable $self masks earlier declaration in same scope at test.pl
+ line 11, <DATA> line 21937.
[download]