Understand::Gui::filename()
Returns the name of the current file being edited, or undef if no file is being edited.
my $filename = Understand::Gui::filename();