my $answer= log_in_box_and_do_something();
open(F,'<',$filename) or die "Could not open $filename\n";
my $compare= <F>;
if ($answer eq $compare) {
#both are equal
}