--- mogilefs/api/perl/MogileFS.pm	Mon Dec  5 11:14:10 2005
+++ /usr/local/lib/perl5/site_perl/5.8.3/MogileFS.pm	Mon Dec  5 12:58:03 2005
@@ -192,6 +192,20 @@
     return map { "$self->{root}/$_"} @paths;
 }
 
+sub get_file_size {
+    my MogileFS $self = shift;
+    my $key = shift;
+
+    my $res = $self->{backend}->do_request
+        ("get_file_size", {
+            domain => $self->{domain},
+            key    => $key,
+        }) or return undef;
+
+   return $res->{file_size};
+}
+
+
 # given a key, returns a scalar reference pointing at a string containing
 # the contents of the file. takes one parameter; a scalar key to get the
 # data for the file.