Uncompatible Systems

#!/usr/bin/perl

my $years = rand 110;

foreach($years) {
  tell about.
  do potential($years);
}

sub potential {
  use strict;
  my $time = $_[0];
  if ( $time > 0 ) {
    sort $time * potential($time - 1);
  } else {
    die;
  }
}