It works for me. However, you need to check the results of the open call:

{
    local *F;    # for safety
    open (F, ">$file") || die "Can't open $file: $!";
    Storeable::store_fd [$class, $id, @attrs], \*F;    # or just *F wo
+rks
    close F;
}
[download]

The die is the important part. If you can't open the file, store_fd won't do anything.