file_put_contents for perl

file_put_contents

sub file_put_contents {
  my $fh;
  open($fh, '>>', "/some/path/file.txt") or die "Couldn't open: $!";
  print $fh "\n";
  print $fh @_[0];
  print $fh @_[1];
  close $fh;
}
file_put_contents("1:","new");
use Data::Dumper;
file_put_contents("1:",Dumper($cgi));