Blue Flower

#!/usr/bin/perl
use strict;
use Image::ExifTool;
my $exifTool = new Image::ExifTool;
my $info = $exifTool->ImageInfo('20150729.NEF');
foreach my $elm (keys %$info) {
print "$elm =>\t $$info{$elm}\n";
}
print "################\n";
print "CreateDate:\t\t$$info{CreateDate}\n";
print "SubSecCreateDate:\t$$info{SubSecCreateDate}\n";
print "FocusDistance:\t\t$$info{FocusDistance}\n";
print "FNumber:\t\t$$info{FNumber}\n";
print "ShutterSpeed:\t\t$$info{ShutterSpeed}\n";

sar -q -f /var/log/sa/sa08 | perl -lne 'while (<>){@sp =split (/\s+/);if ($sp[3]>10){print "$sp[0]\t$sp[3]"}};'

oder

tailf /var/log/maillog | perl -lne 'while (<>){@sp =split (/\s+/); if ($sp[8] =~ m/RelayedInternal|RelayedInbound/ and $sp[11] =~ m/\@/ and $sp[13] =~ m/\@/){print "$sp[2]\t$sp[10]\t$sp[11]\t$sp[13]"}}'