#!/usr/bin/env perl

# enable taint mode somehow?

#use Modern::Perl;
use strict;
use warnings;

use mro     ();
use feature ();

open (my $pip, '-|', 'pip list --outdated --format freeze') or die "death......\n";
my @pips= <$pip>;
close $pip;

my $count;
for (@pips){
   $count++ && print qq(\n);
   if (/^(\w[^=]*)=/) {
      print qq(==> $_);
      my $msg= qx(pip install --upgrade $1) or die qq(it ded\n);
      print $msg;
   }
}