use Config;
if( $Config{ byteorder } eq '1234' ) {
    print "Little endian";
} 
elsif ( $Config{ byteorder } eq '4321' ) {
    print "Big endian";
}
else{
    print "Your screwed!";
}