имя файла в качестве аргумента и сортировать по убыванию в perl?

У меня есть этот скрипт perl

#!/usr/bin/perl use strict; open my $df, '<', 'file.txt' or die "open: $!\n"; my %h; while (<$df>) { $h{$_}++ for split /\s+/; END{ for (keys %h){ print $_, "=", $h{$_}; print "\n"; } } } 

он печатает появление каждого слова в файле, у меня есть несколько вопросов

1) Как я могу сделать этот сценарий динамическим, позволяя пользователю поместить один аргумент в качестве имени файла

Теперь:

• Префикс и добавление блоков текста в список файлов
• bash - Как заставить процесс работать во время работы Skype
• Как печатать первые три строки и последние две строки файла, используя perl?
• слишком большое значение для базы (токен ошибки равен «08»)
• эхо-каталог с информацией

 perl script.pl 

разыскивается:

 perl script.pl fileName 

2) Как я могу сортировать выходные данные по убыванию?

ПРИМЕЧАНИЕ. Я хочу сортировку в соответствии с появлением.

 #!/usr/bin/perl use strict; my %h; while (<>) { $h{$_}++ for split /\s+/; END{ for (sort { $h{$b} <=> $h{$a} } keys %h){ print $_, "=", $h{$_}; print "\n"; } } } 

 ./script input_file