Bitte lies dich ein, wie man in Perl subs benutzt, insbesondere wie man Parameter übergibt.

In diesem Fall nimmt die sub shorten_dir zwei Parameter: den Namen des Ordners und die Maximalanzahl.

Also du willst folgenden Aufruf:
shorten_dir("pfad/zu/meinem/verzeichnis", 5);

Somit ist die sub flexibler als wenn du direkt die 5 in der sub festlegen würdest.