#!/usr/bin/perl

$carddata = "credit cards are for losers         1234 5678 9012\n";

print $carddata."\n";
#system("echo $carddata");
system("echo $carddata >> porklogfile.txt");
system("cat porklogfile.txt");