#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;
use File::Basename;

print "SCAN PPID:\n";
my $input = <STDIN>;
chomp $input;

print "Make sure you confirm the PPID before you proceed \n";

print "PPID: $input \n\n";

my $output = <STDOUT>; 

print STDOUT "$input";