sub my_system
{
    my ( $cmd ) = @_;
    system( $cmd );
    retcode_full_text( $cmd );
}