Есть ли модуль, который ищет лишний код?

Есть ли модуль, который может найти код, который не нужен?
В качестве примера скрипт с кодом, который не требуется для запуска скрипта:

#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
binmode STDOUT, ':utf8';
use DateTime;
use WWW::Mechanize;

sub my_print {
    my ( $string, $tab, $color ) = @_;
    say $string;
}

sub check {
    my $string = shift;
    return if length $string > 10;
    return $string;
}

my_print( 'Hello World' );