#!/usr/bin/perl

sub f_x{
  my $x = $_[0];
  
  return $x*$x; # функция
}

sub d_f_x{
  my $x = $_[0]; #Первый аргумент - точка в которой считается производная
  my $dx = $_[1]; #Второй аргумент - шаг 

  return (f_x($x+$dx)-f_x($x-$dx))/(2*$dx);
}


print d_f_x(1, 0.01);

#!/usr/bin/perl

sub f_x{
  my $x = $_[0];
  return eval($f);
}

sub d_f_x{
  my $x = $_[0]; #Первый аргумент - точка в которой считается производная
  my $dx = $_[1]; #Второй аргумент - шаг 
  return (f_x($x+$dx)-f_x($x-$dx))/(2*$dx);
}

$f = <STDIN>; # функция, аргумент должин быть в виде - $x. Например, cos($x)

print d_f_x(1, 0.01);