push @tags, split(/[, ]+/, $1);
}
+close ($fh);
#make tags unique
my %seen = ();
@tags = grep { ! $seen{$_} ++ } @tags;
-print join("\n", @tags) . "\n";
+open (my $fh, '>', '/usr/share/grml-tips/tags')
+ or die "Could not open '/usr/share/grml-tips/tags' for writing: $!";
+print $fh join("\n", @tags) . "\n";
+close($fh)