Help for this page
#!/usr/bin/perl ... exec "/usr/bin/sh" or die "Failed to exec /usr/bin/sh: $!"; __END__
exec ./dir-changer new-directory