diff --git a/Radius/Packet.pm b/Radius/Packet.pm
index 25bec34c6abbf5850e77ba640bbdba30ce045d7c..ff19cc7a0767d0691001d9e8d0a6452243dea9b5 100644
--- a/Radius/Packet.pm
+++ b/Radius/Packet.pm
@@ -124,6 +124,18 @@ sub attr
     return;
 }
 
+sub rawattr
+{
+    my ($self, $name ) = @_;
+    
+    my @attr = $self->_attributes;
+    
+    for (my $i = $#attr; $i >= 0; $i-- ) {
+        return $attr[$i][2] if $attr[$i][0] eq $name;
+    }
+    return;
+}
+
 sub attributes {
     my ($self) = @_;