DB<3> open FH, ">/tmp/foo.txt"; DB<4> print FH "THIS IS AN EXAMPLE"; DB<5> print FH $user_id; DB<6> close FH #### DB<6> s $profile->to_xml() main::((eval 35)[/usr/lib/perl5/5.6.1/perl5db.pl:1521]:3): 3: $profile->to_xml(); DB<<7>> #### $DB::single = 1;