Select Code to Download

my $next_html = "http://.../albums.cgi?...&pic=$nextpic&user$user";

my $currentpic = pop(@splitsrc);
print $currentpic;