use IO::File;
-my $sigfile = new IO::File "> /home/don/.signature";
-my $templatefile = new IO::File "/home/don/signature_stuff/sigtemplate.txt";
-my $quotesfile = new IO::File "/home/don/signature_stuff/quote.txt";
+use User;
+
+my ($temp_file,$quote_file) = @ARGV;
+$temp_file ||= User->Home."/lib/signature_stuff/sigtemplate.txt";
+$quote_file ||= User->Home."/lib/signature_stuff/quote.txt";
+
+my $sigfile = new IO::File User->Home."/.signature", 'w' or die "Unable to open ~/.signature for writing; $!";
+my $templatefile = new IO::File $temp_file, 'r' or die "Unable to open $temp_file $!";
+my $quotesfile = new IO::File $quote_file,'r' or die "Unable to open $quote_file $!";
my $template = '';