sub read_data { system "ssh datab01 snapvault status | tail -n +3 > /mnt/scripts/lagtime/tmp/input.txt"; system "ssh datab02 snapvault status | tail -n +3 >> /mnt/scripts/lagtime/tmp/input.txt"; system "ssh datab03 snapvault status | tail -n +3 >> /mnt/scripts/lagtime/tmp/input.txt"; print "Data is uitgelezen.\n"; } sub create_correct_output { open(MYINPUTFILE, ") { cat /mnt/scripts/lagtime/tmp/input.txt |awk '{printf "%1.50s\t%0.60s\t%0.45s\t %0.45s\n", $1, $2, $3, $4}' | sh /mnt/scripts/lagtime/calculate_lag.sh > /tmp/snapvault_status.out.out; } print "data has been put in the right format.\n"; }