Dm Degtyarev degtyarev-dm

## main.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use v5.10;
use LWP::UserAgent;
use File::Slurp;
use Data::Dumper;

binmode(STDOUT,':utf8');

## upgrade_perl_modules.pl
#!/usr/bin/env perl
use strict;
use File::Find;
my @modules=();
my %hash=();
find(\&wanted,@INC);
sub wanted
{
    push @modules, $1    if ($File::Find::name =~ /.*?auto\/([A-Z]([\w\d_\/]+)?)\/[\w\d_]+\.so$/);
}
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use utf8;
	use v5.10;
	use LWP::UserAgent;
	use File::Slurp;
	use Data::Dumper;

	binmode(STDOUT,':utf8');
	#!/usr/bin/env perl
	use strict;
	use File::Find;
	my @modules=();
	my %hash=();
	find(\&wanted,@INC);
	sub wanted
	{
	push @modules, $1 if ($File::Find::name =~ /.*?auto\/([A-Z]([\w\d_\/]+)?)\/[\w\d_]+\.so$/);
	}