use strict;
use utf8;
BEGIN
{
    $SIG{__DIE__} = \&report;
    sub report
    {
        my $arg = shift;
        $arg = "'$arg'" unless $arg =~ /^-?[\d.]+\z/;
        warn("Done\n");
    }
}

$c;