diff --git a/phosta.pl b/phosta.pl

index cebc6e711bdd7f74dd88886816101f5fb5fdd705..d8b47385d0d0bc49c013edfcfa5cf830b927101b 100755

--- a/phosta.pl

+++ b/phosta.pl

@@ -8,8 +8,7 @@ use strict;

use feature qw(say);

use Cwd;

use File::Basename;

-use File::Copy;

-use File::Find;

+use File::Spec::Functions;

use File::HomeDir;

use Getopt::Std;

@@ -37,9 +36,24 @@ }

if ( $opt_s ) { writeconfig($configfile); }

-#move_files($destination_dir);

+get_stats($destination_dir);

exit 0;

+

+sub get_stats

+{

+ my ($destination_dir) = @_;

+

+ say "Scanning $destination_dir for files...";

+

+ my $cmd = "exiftool -r -m -f -p '\$filepath##\$make##\$model##\$lens##\$lensmodel##\$focallength##\$focallengthin35mmformat##\$aperture##\$shutterspeed##\$iso##\$flash##\$datetimeoriginal\"' -d \"%Y-%m-%d %H:%M:%S\" -ext jpg " . $destination_dir;

+ my @lines = qx($cmd);

+

+ foreach (@lines)

+ {

+ say "$_";

+ }

+}

sub getconfig

{