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);
}