[IQ] warn "sig handler interview question"

[Paul Makepeace]

#!/usr/bin/perl
sub yarn { "Once upon a time, @_. The End." }
$SIG{__WARN__} = sub { warn yarn @_ };
warn "there was an interview question";

What is the output?

(IQ stands for interview question :-)

Paul