create var dir if needed

diff --git a/proxy.pl b/proxy.pl
index 3994010..f6fc12b 100755 (executable)
--- a/proxy.pl
+++ b/proxy.pl
@@ -14,6 +14,7 @@ use Data::Dump qw(dump);
 sub var_save {
        my ( $dir, $name, $value ) = @_;
        $value ||= "\n";
+       mkdir 'var' unless -e 'var';
        mkdir "var/$dir" unless -e "var/$dir";
        open(my $fh, '>>', "var/$dir/$name") || die $!;
        print $fh $value;