#!/usr/bin/perl --

use strict;
use warnings;

use autodie 2.01;
use autodie 'log'; # default logger

use autodie log => sub { # custom logger
    no warnings 'uninitialized';
    use POSIX();
    use Carp();
    use Scalar::Quote();
    my ( $func, @args ) = @_;
    (@_) = (
        POSIX::strftime( '%Y-%m-%d %H:%M:%S ', localtime ),
        "$func( ", join( ', ', map { Scalar::Quote::quote($_) } @args ), " )"
    );
    goto &Carp::carp;
};


open my($in), '<', __FILE__;
close $in;
system $^X, qw[ -le print(66) ];
systemx $^X, qw[ -le die(66) ];

__END__

2009-07-02 01:45:45 main::open( undef, '<', 'test.pl' ) at test.pl line 23
2009-07-02 01:45:45 main::close( 'GLOB(0x182f970)' ) at test.pl line 24
2009-07-02 01:45:45 main::system( "C:\\Perl\\bin\\perl.exe", '-le', 'print(66)' ) at test.pl line 25
2009-07-02 01:45:45 main::system( "C:\\Perl\\bin\\perl.exe", '-le', 'die(66)' ) at test.pl line 26
66 at -e line 1.
"C:\Perl\bin\perl.exe" unexpectedly returned exit value 255 at test.pl line 26