Open a file with read and write mode or create the file if it does not exist in Perl

gistfile1.txt

$ ls
$ perl -e 'open my $fh, "+<", "hoge" or die $!'
No such file or directory at -e line 1.
$ ls
$ perl -MFcntl -e 'sysopen my $fh, "hoge", O_RDWR|O_CREAT or die $!'
$ ls
hoge