Select Code to Download

C:\>perl -E "@a = (1, 5, 7, 9);use List::Util qw( min max ); my $min =
+ min @a;say $min;"
1