my $value = ($frameDesc =~ /(\d+)$/ ) ? $1 : 0;
print FH "FTP $value\n";