perl -MCarp::Always script
script