#!/usr/bin/env perl

#-----------------------------------------------------------------------
# Write arguments to output file Filepath
#-----------------------------------------------------------------------

open(FILEPATH,"> Filepath") or die "Can't open Filepath\n";

while( @ARGV ) {
   $file_path = shift();
   print FILEPATH "$file_path \n";
}

