Perl fix to work on all system types (i think)