diff --git a/lib/Subtitle/SSA/Record.pm b/lib/Subtitle/SSA/Record.pm
index 8eaae29..a333e0d 100644
--- a/lib/Subtitle/SSA/Record.pm
+++ b/lib/Subtitle/SSA/Record.pm
@@ -121,4 +121,15 @@ sub to_string {
   return $string;
 }
 
+sub get_format_line {
+  my ($self) = @_;
+
+  my @keys  = @{ $self->{_format} };
+  my @names = map { $FIELDS{$_}->{name} } @keys;
+
+  my $line = 'Format: ' . join(', ' => @names);
+
+  return $line;
+}
+
 1;