in reply to something seems to be missing ...
#!/usr/bin/perl my $girlfriend == our $girlfriend and break; [download]