#!/usr/bin/perl
#

use strict;
use warnings;
use IO::Handle;

my $shell_call = "/sbin/blkid";
open (my $file_handle, "-|", $shell_call) or die "Failed to call: [$shell_call], error was: $!\n";
while (<$file_handle>)
{
    chomp;
    my $line = $_;
    print "Do work on: [$line]\n";
}
close $file_handle;

exit(0);