Simple helper script in my path to add files to .gitignore, creating it if it does not already exist

gitignore.pl

#!/usr/bin/env perl

use warnings;
use strict;

my $file = '.gitignore';

if (-e $file and -f _ and -w _) {
    open my $FOUT, '>>', $file or die "Unable to open file: $file - $!";
    print $FOUT "$ARGV[0]\n";
    close($FOUT);
} else {
    open my $FOUT, '>>', $file or die "Unable to open file: $file - $!";
    print $FOUT "$ARGV[0]\n";
    close($FOUT);
}

exit 0;